home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 7 / FM Towns Free Software Collection 7.iso / data / pvap322a / pvaplgin.plp < prev    next >
Text File  |  1993-11-30  |  3KB  |  132 lines
  1. /************************************************************************
  2. *    自動ログイン                            *
  3. ************************************************************************/
  4. /*    初期設定処理    */
  5. %initmode{
  6.     case    (@tail(MODEM,{00}),
  7.         {m},{rscs({Yes});xon({Yes})},
  8.         {n},{rscs({No});xon({Yes})});
  9.     ctrl({Yes});
  10.     esc({No});
  11.     stopbit({1});
  12.     parity({None});
  13.     lineend({CR});
  14.     lineendt({CR});
  15.     flyingx({No});
  16.     dataleng({8bit});
  17.     logprint({No});
  18.     flyline({1});
  19.     sendtype({Line});
  20.     dispecho({Yes});
  21.     setoak({J});
  22.     crmode({Yes});
  23. };
  24.  
  25. /*    自動ログイン    */
  26. %LOGIN{
  27.     SNDMSG2({hajima_f.snd});
  28.     delfile(LOGPATH|{\お知らせ.LOG});
  29.     initmode;
  30.     baud(BPS);
  31.     loop({
  32.     type({ATZ\n});
  33.     wait({2},{im({Yes})},{OK},{im({No})});
  34.     });
  35.     A:=0;
  36.     case(Acceap,    {1200},    {ap:=AP2},
  37.             {2400},    {ap:=AP},
  38.             {PC-VAN+},{ap:=AP3});
  39.     loop({
  40.     case    (ap,
  41.         AP3,
  42.         {footnote({ＰＣ－ＶＡＮ＋に対し自動接続処理をします})},,
  43.         {footnote({ＰＣ－ＶＡＮに対し自動接続処理をします})});
  44.     case    (BPS={2400},
  45.         {Yes},
  46.         {dialone({AT}|@nth(MODEM,1,{/})|
  47.             @nth(MODEM,2,{/})|{D}|TEL|ap,
  48.             {im({No})},
  49.             {A:=A+1;case    (A=Redial,
  50.                     {Yes},
  51.                     {display({リダイアル }|Redial|
  52.                     { 回実行しても繋がりませんでした\n});
  53.                     stop},,
  54.                     {case    (ap,
  55.                         AP,
  56.                         {case    (AP3={},
  57.                             {No},{ap:=AP3})},
  58.                         AP3,
  59.                         {case    (AP={},
  60.                             {No},{ap:=AP})});
  61.                     im({Yes})})})},
  62.         {No},
  63.         {dialone({ATD}|TEL|ap,
  64.             {im({No})},
  65.             {A:=A+1;case    (A=Redial,
  66.                     {Yes},
  67.                     {display({リダイアル }|Redial|
  68.                     { 回実行しても繋がりませんでした\n});
  69.                     stop},,
  70.                     {im({Yes})})})});
  71.     });
  72.     footnote({前処理をしています});
  73.     type00;
  74.     %typeid{
  75.     wait({60},STOP,    {USER_ID: },{type(ID|{\n})});
  76.     wait({60},STOP,    {PASSWORD: },
  77.             {case    (PASS,{},
  78.                 {footnote({パスワードをキーボードから}|
  79.                     {入れて下さい});
  80.                 sendtype({Ch/2});
  81.                 chat({Yes});
  82.                 wait({60},STOP,{PC-VAN},);
  83.                 chat({No});
  84.                 sendtype({Line});
  85.                 footnote({前処理をしています})},,
  86.                 {type(PASS|{\n})})});
  87.     };
  88.     typeid;
  89.     %WAIT1{
  90.     wait({60},STOP,    {ﾃｲｾｲ ｼﾃｸﾀﾞｻｲ},{typeid;WAIT1},
  91.             {*ﾌﾟﾛﾌｧｲﾙ ｦ ｼｭｳｾｲ ｼﾏｽｶ(Y,N,GW)=},,
  92.             {*ﾌﾟﾛﾌｧｲﾙ ｦ ｼｭｳｾｲ ｼﾏｽｶ=},)};
  93.     WAIT1;
  94.     SNDMSG2({login.snd});
  95.     type({N\n});
  96.     receive(LOGPATH|{\お知らせ.LOG});
  97.     case    (Acceap,
  98.         {PC-VAN+},
  99.         {footnote({ＰＣ－ＶＡＮ＋に接続しました})},,
  100.         {footnote({ＰＣ－ＶＡＮに接続しました})});
  101.     loop({
  102.     wait    ({120},STOP,
  103.         {ﾃｲｾｲ ｼﾃｸﾀﾞｻｲ},
  104.         {wait({60},STOP,{*ﾌﾟﾛﾌｧｲﾙ ｦ ｼｭｳｾｲ ｼﾏｽｶ(Y,N,GW)=},
  105.                 {type({N\n});im({Yes})},
  106.                 {*ﾌﾟﾛﾌｧｲﾙ ｦ ｼｭｳｾｲ ｼﾏｽｶ=},
  107.                 {type({N\n});im({Yes})})},
  108.         {リターンキーを押して下さい=},
  109.         {type({\n});im({Yes})},
  110.         {お知らせを表示しますか(Y,N)=},
  111.         {stoprec;type({N\n});im({Yes})},
  112.         {お知らせを表示しますか=},
  113.         {stoprec;type({N\n});im({Yes})},
  114.         {【到着】},
  115.         {setcdir2(DIR1);#PVAPMAIL.PLP;im({No})},
  116.         {,J)=},
  117.         {im({No})},
  118.         {番号またはコマンド=},
  119.         {im({No})});
  120.     });
  121. };
  122. %type00{
  123.     wait({2});
  124.     type({VANPCNEC02\n});
  125.     wait    ({60},type00,
  126.         {NOT CONNECTED},type00,
  127.         {FAILURE},    type00,
  128.         {<<< PC-VAN >>>},);
  129. };
  130.  
  131. /*    実行    */
  132. LOGIN;